Vol.4 



N? 55 



NESTE NUMERO 



AFINAL, QUAL E O SEU SOM? 

Conversao da onda sonora em informacao digital. 
Armazenagem e reproducao de sons digitais. Pro- 
gramas para o Spectrum e o TRS-Color... 1081 

PKOGRAMACAODEJOGOS 

INTELIGENCIA MILITAR 

Transforme seu micro em urn adversario Inabilido- 
so. Inteligencia x forca bruta. use da heuristic?. 
Estrategias sutis ^ 1 086 



NOVAS MENSAGEIMS SECRETAS 

Como decifrar codigos. Codigo multiplicative. Cria- 
cao de um livro-codigo. Dicionario de codificacao. 
Programe seu livro-codigo 1091 



PAGINAS GRAFICAS 

A persistencia da visao. Desenho animado. Pagi- 
nas graficas, Movimentacao de um cubo . 1096 




PLANO DA OBRA 

"INPUT" e uma obra editada em fascicules semanais, e cada 
conjuntode 15 fascicules compoe um volume. A capa paraenca- 
dernagao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLE^AO 

Exemplares atrasados, ate seis meses ap6s o encerramento da cole;ao, pode- 
rao ser comprados, a pre^os atualizados, da seguinte forma: 1. PESSOAL- 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo enderego podera ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em Sao Paulo, os endere?os sao: rua Brigadeiro Tobias, 773, 
Centre; avenida Indijstrial, 117, Santo Andre; e no Rio de Janeiro; avenida 
Mem de Si, 191/193, Centre. 2. POR CARTA — Poderao ser solicitados exem- 
plares atrasados tambdm por carta, que deve ser enviada para D I NAP — Dis- 
tribuidora Nacional de Publicagoes — Numeros Atrasados — Estrada Veliia 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. NSo envie pa- 
gamento antecipado. O atendimento serd feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postals, deverd ser efetuado ao se retirar a en- 
comendana agenda do Correio. 3. POR TELEX — Utilize o n? (Oil) 33 670 
DNAP. 

Ern Portugal, os pedidos devem ser feitos a Distribuidora Jardim de Publica- 
foes, Lda. — Qta. Pau Varais, Azinhagade Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Aten^ao: Ap6s seis meses do encerramento da colefao, os pedidos serao aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre tftulo e/ou autor da obra, al6m 
do numero da edi^ao. 

COLABORE CONOSCO 

Encaminheseuscomentarios, criticas, sugestoes ou reclamagoes 
ao Servigo de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SP. 



N0K1 1 
CULTUIML 



Editor 

VICTOR CIVITA 



REDA^AO 

Diretor Editorial; Carmo Chagas 

Editorei Executivos: Antonio Jose Filho, 
Berta Sztark Amar 

Editor Chefe: Paulo de Almeida 

Editora de Texto: Ana Lucia B. de Liicena 

CliefE de Arte: Carlos Luiz Batista 

Assiatentes de Arte: Dagmar. Bastas Sampaio, 

Grace Alonso Arruda, Monica Lenardon Corradi 

Secreliria de Redafao/ Coordenadora: Steiania Creitia 

Secretarios de Redaf io: Beatriz Hagstrom, 

Jose Benedito de Oliveira Damiio, Maria de Lourdes Carvalho, 

MarisaSoares de Andrade, Mauro de Queifoz 



COLABORADORES 

Conaultor Editorial Responsavel; Dr. Renato M. E. Sabbatini 
(Diretor do Nucleo de Inlormalica Biomedica da 
Universidade Estadual de Campinas) 
Execu^ao Editorial: DATAQUEST Assessoriaem 
Informatica Ltda., Campinas, SP 
Tradufao, >dapta9B0, programaf ao e redafio; 
Abilio Pedro Neto, Aluisio J. Dornellas de Barros, 
Marcelo R. Piles Therezo, Marcos Huascar Velasco, 
Raul Neder Porrelli, RIcardo J. f. de Aquino ftreira 
Coordena^o Gerai: Rejane Fellzatti Sabbatini 



COMERCIAL 

Diretor Comercia]: Roberto Martins Silveira 
Gerente Comercial: Flivio Maculan 
Gerente de Circulafao: Denise Maria Mozol 

PRODUQAO 

Gerente de Produ^ao: JoJo Slungis 

Coordenador de impreMao: Atilio Roberto Bonon 



Preparador de Texlo/Coordenador: Eliel Silveira Cunha 

Preparadores de Texlo: Alzira Moreira Braz, 

Ana Maria DOguerian, Levon Yacubian, 

Luciano Tasca, Maria Teresa Galluzzi, 

Maria Teresa Martins Lopes, Paulo Felipe Mendrone 

Reviwr/Caonlenador: Jose Maria de Assis 

ReviMrM: Concei^ao Aparecida Gabriel, 

Isabel Leite de Camargo, Ligia Apaiecida Ricetto', 

Maria de Fitima Cardoso, Nair Lucia de Britto 

^te-up: Anastase Polaris, Balduino F Leite, Edson Donate 



© Marshall Cavendish Linnited 1984/85. 

© Edilora Nova Cultural Ltda., SJo Paula BrasiL 1986. 

Edigao organizada pela Editora Nova Cultural Ltda. 

Av. Brigadeiro Faria Lima, n? 2000 ■ 3? andar 

CEP 01452 -Sao Paulo -SP-Brasil 

(Artigo 15 da Ui 5 988, de 14/12/1973), 

Esta obra foi compbsta isa AM ProdufSes Craiicas Ltda. 

e impressa na Divisao Grifica da Editora Abril S.A. 



lAMACAOBASIC 86 < 



AFINAL, QUALE 
O SEU SOM? O 



m 



HaBTfJIt 



E DIGITAL 



AR SINAL 



DO DO SOM 



'■*iGEM E 



REPRODUCAO DfSONS DtGITAlS 



Use seu microcomputador para explorar 
a tecnologia da gravacao sonora 
digital. Um simples programa pefmite a 
analise do som. assim como a 
reproducao de um breve irecho musical. 



Todo som tern dois componenles; vo- 
lume e freguencia. Hahiiualmentc, o ou- 
vido humano e capaz de interprciar si- 
naib tomplexos, transt'ormando as vi- 
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Irtfado Imlta i onda sonora original. 



brag&es do ar em sons reconhecfveis. 
Nessa forma, o som i um sinal ana]6gi- 
CO — isto 4, varia continuamente den- 
tro de um intcrvalo, e qualqucr modifi- 
ca;^o i sigmficativa. Os computadores, 
ao contr^io dos seres humanos, nfto 
conseguem reconhecer esse tipo de va- 
ria^So e precisam de um sinal digital. 
As£im, cada variagSo i representada por 
um valor diferentc, ou 1, presenga ou 
lUsSncia de sinal, 

Mesmo que o computador nSo scja 
capaz de interpretar dirctamcnte um si- 
laJ sonoro, nSo 6 diffcil converter a on- 
la sonora analdgtca de uma melodia, 
por exemplo, em informagSo digital. 

Essa t^cnica t a ultima novidade nos 
csti^dios de grava^o, que estio trocan- 
do as fitas tradicionais (onde se grava 
sinal anal6gico) por sistemas compu- 
tadorizados que gravam as musicas em 
discos (discos de computador). A van- 
tagem de se gravar o som na forma di- 
gital baseia-se na facilidade com que se 
pode combinar o sinal gravado com ou- 
tros sons. Alim disso, uroa vez grava- 
do nessa forma, o risco de distorgio do 
sinaJ dcvido a limita^des do equipamen- 
to i bcm mcnor. 



MilSICA EM SEU MOO 



Embora a tecnologia necess^ia pa- 
ra esse lipo de grava^^to se rcstrinja a es- 
tudios com equipamentos altamente so- 
fisticados, a maioria dos microcompu- 
tadorcs tern os recursos bSsicos que per- 
mitem a exploragao dessa ticnica. Ca- 
da vez que carregamos um programa 
gravado em fita cassete, estamos repro- 
duzlndo um slital que foi registrado na 
forma digital. Mas quern )& ouviu uma 
fita de prograraas sabe que ela produz 
som, ainda que nio muito agradivel. 

Sons e melodias podem ser colocados 
em scu micro, desde que vocS recorra ks 
tecnicas de programa^&o adequadas (em 
linguagem de mdquina, inclusive). Pa- 
ra isso, i necess4rio apenas introduzir 



um sinal anal6gico atravds do plugue de 
grava;;So e ensinar o computador a in- 
terpretd-lo, transformando-o em um si- 
nal digital. 

Uma vez feito isto, o programa po- 
derd armazenar o sinal digital na mem6- 
ria, ou mesmo mostri-lo em forma grd- 
fica, como faz o programa dcstc artigo. 
Isso significa que o seu computador se- 
li. capaz agora de transformar qualquer 
som em mimeros, que podem ser usa- 
dos para produzii um grdfico na tela ou 
ser armazenados na memdria para re- 
produ?ao posterior. 



TRACAOO DO SOM 



O programa pode reproduzir um tra- 
9ado grifico que corresponde ao som to- 
cado pclo gravador. Quando estc i liga- 
do, uma s^rie de linhas regularmente es- 
pa^adas surge na tela (quanto maior a 
frequdncia, mais alta i a linha). No mo- 
mento em que a tela fica cheia, o traga- 
do desaparece, recome^ando do canto 
csquerdo do video. 



GRAVE SOM 



O programa tambim permite, numa 
segunda op^fio, a gravagio digital do si- 
nal de entradf — o tamanho do trecho 
que se pode gravar 6 bem limitado, por 
razOes que explicaremos mais adiante. 
Uma terccira opqto possibilita a repro- 
dugHo do som obtido. 



COMO FUNCIONA 



Como computador nSo pode inter- 
pretar diretamente o sinal sonoro ana- 
Idgico, n6s o programamos de modo a 
atribuii valores digitals a esse sinal. O 
programa verifica repetidamente os si- 
nais na porta de entrada do cassete em 
intervalos muito curtos de tempo (mi- 
Ihares de vezes por segundo). Esses si- 
nais s6 podem ser ou 1 — nto M va- 
lores intermedi^rios como no sinal ana- 
Idgico. A alta velocidade com que a por- 
ta 6 lida repetidas vezes faz com que as 
varia? 6es do sinal digital imitem o sinal 
analdgico. 

Imaginemos, por exemplo, que entra- 
mos com um sinal de frequdncia de 256 
Hz (nota C). Esse sinal atinge o pico 256 
vezes por segundo, e cada pico dura 
1/512 de segundo. Se fizermos a leitura 
da porta 2000 vezes por segundo, obte- 
remos um pico a cada quatro leituras. 
t. assim que a varia^So do sinal digital 
imita a onda sonora analdgica — quan- 
to mais rdpidas forem as leituras, mais 



preclsa serd a convers9o analdgico- 
dlgital. 

O programa utiliza os valores digitals 
obtidos da fita dos modos descritos. Pa- 
ra mostrar a onda sonora graficamen- 
tc, ele calcula quantos picos — ou quan- 
tos "uns" — obteve por unidade de 
tempo, o que equivale h freqiiencia mi- 
dia daquele intervalo. Novamente, 
quanto mais rdpida for a ieituia, mais 
preciso serd o grdfico. 

O processo de grava^io i semelhan- 
te. O programa toma oito leituras e as 
armazcna em um byte de memdria. Es- 
se procedimento i repetido para cada oi- 
to leituras. Como um elevado numero 
de leituras 6 feito em um curto espa^o 
de tempo, o programa utitlza grande 
quantidade de mcm6ria — no Spec- 
trum, por exemplo, toda a memdria se- 
ria consumida por um trecho musical de 
apenas oito segundos de durafSo. 

A reprodupao do sinal digital consti- 
tui processo inverso, no qual a infor- 
macSo armazenada na mem6ria i envia- 
da ao alto-falante para imitar as vibra- 
gfies lidas na porta do cassete durante 
a gravagSo. Devido ks limitagdes do 
equipainento, o som produzido estd lon- 
ge de ser de alta-fldelidade. 



O programa do Spectrum i dividido 
em duas partes — um programa BASIC 
com as rotinas de gravagSo, exccugio e 
de tra?ado grdfico, e uma rotina em lin- 
guagem de mdquina, para ler a entrada 
do gravador cassete. 

Digite a primeira parte e grave-a uti- 
lizando a instru^do; 

SAVE 'ANALYSER' LINE 5 

10 CLEAB 26000: RESTORE : LET 

t-0: LET x-65368 

20 FOR n-1 TO 106 

30 READ a: POKE x,a 

40 LET t-t4« 

50 LET x-x+l 

60 NEXT n 

70 IF t-12721 THEN PRINT "OK 

. " i STOP 

80 PRINT 'EBRO NAS LINHAS 'DA 

TA": STOP 

90 DATA 14.64,1.75,8,17,208,7. 

219,254.2 30,64,185,40,7,62,64 

,169, 79,6,60,6,29,3 2, 2 19, 175, 

1 78 , 40 , 5 , 30 , 255 , 2 1 , 24 , 2 30 , 8 , 

203.63,6.0,79,201 
100 DATA 243,33,144,101.17,80, 
255.6.7,219.254,203.119.32.2. 
203,254,203,62,16,244,35,125, 
187 , 32 , 237 , 124 , 186, 32 , 233 , 251 , 
201,243,33,144,101,17,80,2 55,6 
.S,20.^,70,40,4 

110 DATA 62,0,211,254,62,255, 
211. 2 54, 203. 14, 16, 240, 35, 125, 



18 7.3 2,233,124,186,32.229,251, 

201 

A seguir, dlgite a segunda parte, que 
cont6m a. rotina em c6digo dentro de 
suas litihas DATA. A linha SO verifica 
se houve algum erro de digita^o nas li- 
nhas DATA, por meio da soma dos nO- 
meros. Execute (RUN) o segundo pro- 
grama e grave a rotina em c6digo na fi- 
ta, numa posi^eio imediatamente poste- 
rior ao primeiro programa com: 

SAVE 'ANALYSER' CODE 65368,109 

Ao scr rodado, o primeiro programa 
se auto-executard a partir da linha 5, 
carregando entdo a rotina em c6digo. 
Completado o processo, surgir^ na tela 
um menu com as tres op?6cs. 

A primeira delas solicitard que conec- 
temos o gravador e toquemos algum 
som. Quando fazemos isso e pressiona- 
mos qualquer tecla, 6 desenhado um 
grdfico continuo da evolucio da fre- 
qtiencia no tempo. Aperte M para retor- 
nar ao menu principal ou F para conge- 
lar a imagem. Podereraos descongelar a 
imagem apertando qualquer tecl^a. 

Se escolhermos a op^So dois, o pro- 
grama solicitard que iniciemos a execu- 
cSo da miisica no gravador, informan- 
do quando a grava?to estiver completa 
e retornando entSo ao menu. Podemos 
tocar qualquer som, mas os curtos e 
agudos serio melhor reproduzidos. As 
limita?6es do Spectrum fazem com que 
som seja reproduzido nlaJs lentamen- 
te do que foi gravado; al^m disso, os 
sons mais graves sSo filtrados — a por- 
ta de entrada do gravador nio i capaz 
de diferenciar os sons abaixo de uma 
ccrta frequencia. 

fi evidcnte que ningu^m vai querer 
gastar quase toda a mem6ria do seu mi- 
cro simplesmente para incorporar uns 
poucos segundos de um som dissonan- 
te em outros programas. Contudo, se 
voce quiscr experimentar, use: 

SAVE 'SOM' CODE 26000.39360 

Para gravar a rotina em cddigo que 
executa o som, digite: 

SAVE 'TOCA' CODE 65440,40 

A mem6ria precisa ser protegida por 
CLEAR 25299. Para ouvir o som, digi- 
te RAND USR 65440. 

Tudo isso deixarS apenas 3Kbytes de 
mem6ria livres para seu programa, o 
que nao d muito, a menos que vocS pro- 
grame em linguagem de mdquina. 

5 CLEAR J5999: LOAD ""CODE 
10 GOSUB 200; G03UB 500 
20 IF INKEYS-"" THEN GOTO 20 



21 LET C-CODE INKETTS : IF C<49 
OB 051 THEN GOTO 20 

22 GOStlB 30: GOSUB 200 

24 IF C-49 THEN GOTO 100 

25 IF C=50 THEN GOTO 600 

26 IF C-Sl THEN GOTO 700 
30 FOR N-.10 TO 50 STEP 3: 
SOUND .01,Nr NEXT N: BETUBN 

100 CLS : GOSUB lOOO: PRINT AT 
12,4; BRIGHT 1;"PRES3I0NE QUAL 
QUER TECLA" 

101 IF INKEY$-"" THEN GOTO 
lOl 

102 SOUND .1,10 

104 CLS : COSUB 150: GOSUB BOO 

105 FOR X-0 TO 255; PLOT X,0: 
DRAV 0,USR 65 368 

110 IF INKEYS-"m" THEN GOSIJB 
30: GOTO 10 

111 IF INKEyS'="f" THEN GOSUB 
801: GOTO 140 

130 NEXT X; CLS : GOSUB l&O; 
GOSUB BOO: GOTO 10 5 

140 PRINT AT 0,0;" 

" : SOUND 
.1,40; PAUSE 50: TF INKEYS""' 
THEN GOTO 140 

141 SOUND .1,10: CLS : GOTO 
104 

150 PRINT AT 0,2; BRIGHT li" 

PRESSTONE (M) PAHA MENU ' : 

RETURN 

200 BORDER 5t PAPEB 5: INK 0: 

CLS : RETURN 

500 PRINT AT 0,2; PAPER 2; INK 

7 ; " MENU - ANALTSADOR SONOHO 

If 

510 PHINT AT 5,7i"l- GHAFICO D 
E BARRA3-:AT 7,7;"2- GRAVAR SO 
M*;AT 9,7; "3- REPH0DU2IR SOM" 
520 PRINT AT 15,4; PAPER 4;"PR 
ESSIONE tl) (2) OU (3)": 
RETURN 

600 PAUSE 20: GOSUB 1000: 
PRINT AT 13,0 J "Qualquer T.ecJa 
para GRAVAR" 

605 IF INKEYS-"' THEN GOTO 
605 

606 SOUND .05,20: CLS : PRINT 
AT 10.8;"AGUARDE": RAND USR 
654 08: SOUND .1,30: CLS : 
PRINT AT 10,6; BRIGHT 1;" ORAU 
ACAO CONCLUIDA ": PAUSE 300: 
GOTO 10 

700 RAND USB 65440: GOTO 10 

800 PRINT AT 1,4; PAPER 4;* t 
F) CONGELA A IWAGEM " : RETURN 

801 PRINT AT 1,0; PAPER 4 ; " QU 
ALQUER TECLA PARA CONTINUAR " : 
RETURN 

1000 PRINT AT 4,2;'Conecte o te 
rainal EAR do Beu";AT 6,0i"grav 
ador ao terminal EAR do Beu-;AT 

8,0;"Spectruii. E toque alguma 
WUflica.": RETURN 



A rotina em c6digo de mdqulna que 
ii a entrada do gravador encontra-se a 




O que 6 anAllsfl aspactral? 

A anSlise espectral consiste na ob- 
tengjo dos componentes de frequfin- 
cfa pura, preaentes em uma determina- 
da onda sonora. Explicando melhor: 
uma onda sonore complexa, como o 
som de uma flauta, a voz humana, o 
rurdo de ums britadeira etc. s9o mistu- 
ras 6b diversas frequdncias sonoras pu- 
ras. Por exempto, am uma carta fra^So 
da tempo (medida em milissegundos], 
pode haver 12% de frequdncia 1000 
Hertz (ciclos por segundo de uma on- 
da senoidal), 8% de 1 100 Hertz etc. 

objetivo da anilise espectral A 
quantif icar cada frequfincia sonora pura 
presents em um som. Essa quantifica- 
^So, feita em termos da potSncia so- 
nora m4dfa, geralmente 6 apresentada 
na fomia de um gr^fico, com a freqiJfln- 
cia pura nas abscissas e a potSncia nas 
ordervadas. 

Existem diversos algoritmos para 
realizar essa andiise em um computa- 
dor. mais conhecido 6 o FasT Fourier 
Transform (FFT, Transformada Rdpida 
de Fourier). 



partir da linha 1000 DATA. A soma dos 
numeros de cada linha esti em seu tre- 
cho final para verificacao, a fim de evi- 
tar que um erro de digitafao acabe Ic- 
vando a um desastre. 

Digitado o programa, grave-o em dis- 
co ou fita antes de executa-lo. Quando 
isto € feito, um menu aparece na tela. 
Se houver ajgum erro nas linhas DATA, 
surgirii na tela uma raensagem "VERI- 
FIQUE A LINHA (niimero...)". 

Aperte 1 para fazer a primeira op?ao. 
O programa solicitari que posicionemos 
a fita c liguemos o gravador. Ao pres- 
stonarmos a tecla < ENTER > , a leitu- 
ra da fita come^ara, juntamente com o 
desenho do grdfico correspondente. 
Aperte M para retornar ao menu ou 
<SHirT><@> para congelar a 
imagem . 

[)igite 2 para fazer a segunda op^ao 
(gravar um trecho). O programa faz as 
mesmas soiicita^des da op(;3o 1. En- 
quanto a musica estiver scndo executa- 
da, um gririco colorido aparecerd na te- 
la. Quando a gravagSo estiver comple- 
ta, o grSfico ser^ apagado e o progra- 
ma retornari ao menu. 

Aperte 3 para reproduzir a miisica 
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que acaba de gravar. Ao contr&rio do 
Spectrum, o TRS-Color exccuta a me- 
lodia na velocidade original. Se voc6 
quiser incorporar esse som a um outro 
programa, poder^ gravi-lo etn fita com: 

CSAWEM'MUSICA. ' ,1536,13823,1536 

he estiver usando dlsquetes, adicio- 
ne 1536 a estes valores. Para gravar a 
rotina em c6digo que executa a musica, 
utilize: 

CSAVEM *TOCA' ,31000,31X74,31091 

fi neoess^o proteger o topo da mem6- 
ria com CLEAR ZOO^OW e PCLEAR 
8. Paia otecutar o som, use EXEC 31091. 

Depois de tudo isso, deve restar mui- 
to pouco espa?o para seu programa; 
use-o economicamente. 

10 PCLEAR 8:CLEAB 200 , 30999: CLS 

:B-191 

20 K-31000 

30 READ A: IF A<0 THEN 60 

40 IF A<2S6 THEN POKE K,A:K-K+1 

:T-T+A;GOTO 30 

50 IF TOA THEN PBIKT "erro VE 

RIFIOUE A LINHA";1000+10*IKT((K 

-31001J/20) :END ELSE T-0:GOT030 

60 DEFU3H0-310O0:DEFUSRl-31044: 

DEFUSR2-31091 

70 PRINT ei4.-Benu' : PRINT 6131. 

"1- GRAF I CO DE BARHAS ': PRINT «1 

95. "2- GRAVAR UM TRECHO" : PRINT 

S259,"3- REPRODUZIH MUSICA GRAU 

ADA" 

80 AS*INKEY$:IF AS<"'1" OH A3>"3 

" THEN 80 

90 ON 'JAL(A$) G03UB 200,400,600 

100 CLS: GOTO 70 

200 PMODE 4: COLOR 0,5: CLS 

210 PRINT" POSICIONE GRAVADOR 

, APERTE PLAY E TECLE <ENTER 

>- 

220 MOTOR ON: AUDIO ON 

230 IF INKEYS<>CHR3(13) THEN 23 



240 MOTOR OFF: PRINT §192, "PRESS 

I ONE 'M' PARA MENU OU [SHI 

FT) « PARA CONCELAR IMAGEM' 

250 FOR G"1T0 4000 : NEXT :MOTORON 

260 SCREEN 1,1 

270 PCLS:FOR X-0 TO 255:A-B-4*U 

SROtO) :IF A<0 THEN A-0 

280 LINE {X,B)-tX,A) ,PSET 

290 IF INKEYS-"M" THEN X-255:NE 

XT: MOTOR OFF : RETURN 

300 NEXT:GOTO 270 

Um sinal anal^gico que entra 
pela porta do gravador cassete i 
lido 2000 vezes por segundo. 
Ao uilrapassar a voltagetn llmiar, o 
sinal £ deteclado e reglstrado 
i-omo 1. Os slnais abalxo desae nfvel 
de tensAo sio registrados coma 0. 
O tra^ado grifico digital produzldo 
imita a onda sonora aiiBl6glca. 




aplicaqAo em JOGOS 

programa listado nesse artigo po- 
de tornar sous jogos mais interessan- 
tes. Como ele nos permite gravar na 
memdrja a imitagSo de qualquer som de 
entrada, fica fdcil usar a reprodugao 
desse som em um jogo. 

Podemos, por exempio, acrescentar 
muita emo^ao a uma aventura introdu- 
zindo no programa rufdos de explosoes, 
tiros e at6 uma mensagem curta de pa- 
rab^ns ao jogador. Digitalizando os 
sons com o auxflia de nosso programa, 
eles serao "tocados" pelo alto-falante 
do micro no momento certo. Voc6 hS 
de concordar que, com esse truque, a 
qiiaiidade do jogo serd tncomparavel- 
mente meltior. 



400 CLS: PMODE 3: MOTOR ON: AUDIO 

N: PRINT" POSICIONE GRAVADOR, 

APERTE PLAY E TECLE <ENTER>" 

410 IF INKEYSOCHRS tl3)THEN 410 

420 SCREEN 1,0:N-USR1(0) 

430 MOTOR OFF: RETURN 

600 CLS: PRINT' REPRODUZINDO TR 

ECHO GRAVADO" 

610 N-USR2(0) 

620 PRINT ei29,"NOVA«ENTE (S/N) 

7" 
630 A5-INKEY3:IF ASO'S" AND A3 
<>"N" THEN 630 
640 IF A3-'S" THEN 600 
650 RETURN 

1000 DATA 26,60,206.255.32,142, 
2,233,204,0,0,102,196,37,10,16, 
163,132,48.31.1915 
1010 DATA 38,245,126,180.244,19 
5,0,1,32,7, 102 , 196 , 36 , 237 , 16 , 16 
3,132,48,31,38,2067 
1020 DATA 245.126,180.244.26,80 
,142,0,0,48,31.38,25 2,220,25.13 
1,0,1.52.6,1847 

1030 DATA 158.186,198,8.134.11. 
74,38,253,118.255,32,105,132,90 
,3<>,4.ie,ie.32,1903 
1040 DATA 4,48.1.198,8.172.228. 
38.231.53,134,26,80,18 2,255,1,1 
32,247,183,255,2476 
1050 DATA 1,182.255,3,132,247,1 
83,255,3,182.255,35,138,8,183,2 
55,35.158.186,220,2916 
1060 DATA 25,131.0.1.52.6.134.8 
,52,2,2 30,128,88,36,4,134,252,3 
2,3.79.1397 

1070 DATA 33.253,183.255,32.134 
.8,74.38.253.33,251.106.228.39. 
8,109,159,31,64,2291 
1080 DATA 30,136,32,224,134,8,1 
67,228,17 2,97,38.214,5 3.146,167 
9,-1 
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PROGRAMACAODiJOGOS 



INTELIGENCIA 
MILITAR 



1- _ _ -5k^^. 



Neste ultimo artigo da serie sobre 
jogos de guerra, transformaremos o 
micro em um adversarlo inteligente. 
Veja como a heuristica pode 
melhorar a estrategia de seu inimigo, 



665 IF j^O THEN LET T(j+i.6)= 
T{J+l.6)+FN r(JOO)r LET T(J+). 
7)=T(j+i,6) " 



O jogo esta completo, mas, ate o mo- 
mento. nao oferece maiores dificulda- 
des ao jogador, Como o computador so 
pode faier movimentos aleaiorios pelo 
tahuldro, a supcrioridade do homem so- 
bre a maquina lorna-se absoluta em ape- 
^ algumas partidas. QuaJquer esiraie- 
._ e capaz de derrotar o computador, 
poK esie faz seus lances independenie- 
mente dos movimentos do jogador. 

Quando a vitoria facil come^a a nos 
entediar, a saida e forialecer nosso opo- 
nente. Isso significa incluir mais rotinas. 
Como a principal dificuldade na progra- 
macao de jogos do lipo Capa e Espada 
e exatamente a iimitav'ao da memoria — 
sobretudo nos micros das linhas Apple 
e TK-2000 — , tudo o que se adicionar 
ao programa de\e reunir simplicidade e 
eficacia. 



665 IF J-8 THEN T( J+I ,6) -T (J+I, 
6)-t-HND(100) ;T(J+I,7)=T(J+I,6) 



UM INIMIGO MAIS FORTf 



Ha duas maneiras de lornar i 
putador um ad\ ersario mais forte, 
delas consisic em reconhecer sua limi- 
tacao intelectual dando-Ihe unidades su- 
periores, em forv'a, as do jogador. .\ 
maioria dos jogos comerciais adota es- 
sa solucao, que e. sem dijvida, a de pro- 
gramacao mais facil. 

Para observar o efeiio de tal mudan- 
ca. basta que se adicioue uma linha ao 
programa. Voce logo percebera que es- 
ta nao e realmente a saida ideal. Con- 
tudo, nao custa experimenia-ta; seu lini- 
co trabaiho sera introduzir — e depois 
apagar — a linha que da a "forca ex- 
tra" ao computador. 

O demento da mairi/ da tropa que 
coniem a forca inicial da unidadc e o 6. 
Para aumenta-io, digite: 



riM 



665 IF J - 8 THEN T(J + 1,6) ■■ 
T(J +1,6) + FN R(IOO) :T(J + 
1.7) = TtJ + 1,6) 



6)-t-RND(100) :T(J+I,7)-T(J+I.6) 

O programa somara um niimero ran- 
domico ao poder inicial da unidadc, co- 
locando o resuliado no seu poder aiual. 



iimislii^MUTiat 



oponente com fo 
, inleligentc sera bent' 
same do que um inimigo forie demais 
c inieleclualmentc incapaz. Contudo, 
aumemar a intcligencia e bem mats di- 
licil que aumenlar a forv'a. 

Os concciios utilizados na programa- 
cao da inleiigencia cm Capa e Espada 
sao bem diferenies daqueles que vimos 
em On'h ou cm .4 Raposa e os Gansos. 

Nesses jogos de labuleiro, os movi- 
mentos sao muilo bem definidos. Em 
ambos e possivel prever movimentos fu- 
tiiros bem como criterios exatos de su- 
ccsso, utilizando a pesquisa cm arvore 
e outros processos mais simples. .Mem 
disso. OS algoriimos utilizados nos pro- 
gramas nao envolvem elenienjos de aca- 
so. No caso ue A Rapos/re'^ drnsos. 
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UMINIMIGOHABILtDOSO 



INTELtGENCIA X FORCA BHUTA 



USE A HEURISTtCA 



LSJRATiGJAS SUTJS 

UMA NOVA RQTINA 
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dependentes, outras nao. E, acima de 
tudo, nao hd receita para a vitdria: ne- 
nhirni procedimento leva inevitavelmen- 
te ao Iriunfo. 

Poderiamos examinar a possibilida- 
de de definir um algoritmo eficaz para 
o nosso jogo. Mas este seria, de qual- 
quer maneira, extremamente complexo, 
e tornaria o programa grande e lento de- 
mais, Na pr^tica, a safda para progra- 
mas grandes, complicados e scm algo- 
rJtmos definidos ^ dada por um conj un- 
to de heuristicas. 

Uma heun'stica i apenas uma regra 
prStica que parece funcionar na maio- 
ria dos casos. Nao hd garantias de que 
ela funcione nem de que nao leve a er- 
ros brutais em determinadas situa<;oes. 
Geralmente, no entanto, vaJe a pena ten- 
tar; afinal, este k o procedimento da 
major pane das pessoas diante de mui- 
tos problemas complicados. 

O programa contera, entao, uma lis- 
ta de regras prdticas, a saber: 

• Se voce e uma unidade de arqueiros 
e existe uma unidade inimiga ao seu al- 
cance, atire. 

• Se voce se envolver em uma batalha 
e estiver perdendo, tente ir em direijao 
contr4ria. 

• Se voc§ estd perto de uma unidade ini- 
miga mais forte, afaste-se. 

• Se voce estd prbximo a uma unidade 
inimiga mais fraca, aproxime-se. 

No ultimo caso, o computador leva 
vantagem, yk que conhece o poder das 
unidades do jogador. Este, ao contrd- 
rio, nao tern acesso A mesma informa- 
5to sobre as tropas inimigas. 



CONDUTA PLANEJADA 



Al^m dessas regras, o computador 
precisa de um piano geral de conduta. 
O desenrolar de uma guerra nunca e dei- 
xado ao acaso. O piano dependeri das 
condi96es de vitdria — se esta depende. 
por exempio, da raorte do comandan- 
te, podera ser conveniente usar lodas as 
forfas contra o quartel-general. Como 
em Capa e Espada a vit6ria depende de 
causar mais baixas ao inimigo do que 
sofrS-tas, o piano do computador terd 
esse objetivo. 

Um modo simples de eliminar as tro- 
pas inimigas consistiria em atacar uni- 
dades fracas com unidades fortes. Mas 
esta seria uma estrat^gia dificil de pro- 
gramar. Ela poderia ser siraplificada pa- 
ra "concentre todas as suas for^as nu- 



ma post^ao'*. Fazendo isso, as forgas do 
computador superariam as do jogador 
— desde que este nao tivesse planejado 
a mesma coisa. Essa estrat^gia, porem, 
tem uma conseqiiencia: as for9as do jo- 
gador superariam as do computador em 
outra parte do tabuleiro — e aqui a heu- 
ristica falharia. 

Para que o jogador nao possa prever 
a agio do inimigo, o computador deve 
ter aJgumas opcdes abertas. Novamen- 
te preservando a simplicidade, pode- 
mos fazei a mdquina escolher sempre, 
para concentrar suas forpas, uma das 
posifoes ocupadas por unidades do jo- 
gador. Por^m. uma rotina verificaria es- 
sas posi<;oes, trans ferindo a concentra- 
fao ao acaso, acada volla do la?o_ prin- 
cipal. Isso manteria o jogador na incer- 
teza, ao mesmo tempo que o piano do 
computador seguiria seu curso. 

Um segundo aspecto do jogo a ser in- 
teligentemente controlado € a agao in- 
dividual das unidades. Cada uma delas 
deve ser capaz de responder is condigoes 
locais do campo de batalha, indepen- 
dentemente do piano geral. Uma unida- 
de nao deve, por exempio, dirigir-se ao 
ponto de concent ragao se hd unidades 
inimigas mais fortes no caminho. 

Quando o computador tiver que dar 
ordens, ele fara uma serie de testes, nu- 
ma seqiiencia cuidadosamente escolhi- 
da. Essa escolha obedece a certas regras, 
elaboradas conforme dois criterios. Pri- 
meiro: como os testes precisam ser exe- 
cutados com a maior rapidez possivel, 
OS que nao se aplicam a situagao devem 
ser descartados, Segundo: os testes mais 
importantes serao realizados no inicio, 
de maneira a impedir que uma decisao 
seja tomada com base em um fator me- 
nos relevante. 

As regras usadas no programa sao as 
seguintes, por ordcm de importancia: 

• Se a unidade estd em combate e ven- 
ceu na ultima vez, as ordens sio manti- 
das. Ignoram-se as outras condi?6es. 

• Se a unidade estA em combate e per- 
deu na ultima vez, deve se afastar do ini- 
migo, Isso nem sempre i possivel, pois 
ela pode estar na borda do mapa ou ter 
o caminho de fuga obstruido. 

• Se uma unidade de arqueiros tem um 
alvo ao alcance, ela deve atirar. A posi- 
gao dessa regra assegura que os arquei- 
ros prefiram atirar a se envolver em 
combate corpo a corpo.- 

• Se existe uma unidade inimiga mais 
fraca a uma distSncia inferior ao deslo- 
camento radximo, MARCHE em dire- 
(jao a ela. Entretanto, se a unidade for 



mais forte, afaste-se. Este € um teste de- 
morado, uma vez que leva em conta as 
unidades inimigas. 

• Dirija-se ao ponto de concentragao. 

Mesmo essas poucas regras levam um 
bom tempo para serem consideradas, di- 
minuindo bastante a velocidade do jo- 
go. Este <t o pre?o a ser pago por um jo- 
go inteligente. Nao havera, porto, es- 
peras tao longas e exasperantes como em 
A Raposa e os Gansos. 



ROTIMAS ADICIONAtS 



Apague as linhas 1770 a 1790 antes 
de adicionar estas rotinas. 



350 DIM t3Ce.l2]: DIM o5(5,12) 

: DIM w9it5,9): DIM ibS(5.12): 

DIM aS{4.12): DIM rS(4,12): 

DIM c<8) 

416 LET Bp=«l 
1.66.'5 IF wn>8 THEN LET c(vn-a)- 
B 

1666 IF lo>8 THEN LET c(lo-B)- 
T(wn,2) 

1760 LET ra-st: LET rb-Bh: LET 
rc-fx! LET rd=fyr GOSUB 3000 
2140 REM Inxmigo 
2142 REM Loop 
214 3 LET r=FN r(10) 
2144 IF r-1 OR T(ap,lJ>3 THEN 
LET ap-FN r C8] 
214.'i IF r = l AND T{Bp,ll>3 THEN 

GOTO 214 2 
2150 IF c(e-8]=8 THEN BETURN 
2155 IF cte-ajOO THEN LET T{e 
,])-3: LET T<e.2)"cCG-8) : LET c 
(e-8J=Q: RETURN 

2170 IF T(e.3}=2 THEN LET ra=l 
; LE;T rb=er LET rc=5: LET rd = 5: 

GOSUB 3000; IF gpO-1 THEN LE 
T T(e. 1}=1 : RETURN 

2180 LET T{e,l)-3 

2181 LET hp-5; LET vp-5 : LET «w 
= 

21B2 FOR v-1 TO 8 

2183 LET zp»0: GOSUB 3100 

2184 IF spOO THEN GOSUB 3200 
2165 NEXT V 

2187 IF hp<>5 AND vp<>5 THEN R 
ETURN 

2188 IF mvOO THEN LET T(e,2)- 
mv: RETURN 

2189 LET hp-Tte.8)-T(Bp.8) : LET 
vp-T(e,9)-T(8p,9} : GOSUB 3200 

2190 RETURN 
30 00 REM 

3010 LET op=-l 

3020 FOR iii=ra TO Cra+7) 

3030 LET xx-ABS (T (m. 8) -T (rto , 8} 

): LET yy-ABS (T (in,9} -T Crb, 9) ) 

3040 IF 3tx<rc AND yY<rd AND T(m 

,1, )<4 THEN LET rc=xx: LET rd-y 

y: LET qp=m 
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3050 NEXT m 

3060 RETURN 

3100 HEM 

3110 IF T{v,l)>3 THEN RETUHN 

3120 LET xx^ABS (T {v, 8) -T Ce , 8) J 

r LET yy-AB3 (T (v, 9) -T(e,9) ) 

3130 IF TCv,7)>=T(e,7) AND JOi<S 

AND yy<5 THEN LET mv-T(v,2) 
3140 IF Ji3i<hD AND yY<vp THEN L 
ET hp-3tx: LET vp-yy : LET zp-li 
RETURN 
315(1 RETURN 
3200 REM 

3210 IF hp>-0 THEN LET lp"l 
3220 IF hp<0 THEN LET lp-3: LE 
T hp-ABS (hp) 

3230 IF vp>=0 AND ABS tvp) >hp T 
HEN LET lp=2 

324 IF vp«CO AND ABS (Vp) >hp TH 
EN LET lp-4: LET vp-ABS (vp) 
3250 LET T(e.2)»lp 
3260 RETURN 



m 



.M3(5) 



'360 DIM TS{8) ,03(5) ,HSC5) 
,AS(4) ,RS{4) ,C(8) 
416 SP-1 

1665 IF WN>8 THEN C(WN-e)-e 

1666 IF LO>e THEN C (LO-S) -T (MN. 
2) 

1760 RA-ST:RB-SH:RC"FX:BD-FY:GO 

SUB 30 00 

2140 REM INIMIGO 

2142 REM LOOP 

2143 R-RND(IO) 

2144 IF R-1 OH T(SP,1)>3 THEN 3 
P-RND(8) 

2145 IF a-1 AND T(SP,1)>3 THEN 
2142 

2150 IF C(E-8)-8 THEN RETURN 
2155 IF C(E-8)<>0 THEN T{E,l)-3 
:T(E.2>-C(E-8) :C (E-B) -0 : RETUHN 
2170 IF T(E,3)-2 THEN RA-l.-RB-E 
:RC-5:RD-5:G0SUB 3000: IF GPO-1 
THEN T{E,1)-1: RETURN 

2180 T(E.l)-3 

2181 HP-5:VP-5:MU-0 

2182 FOR V-1 TO 8 

2183 ZP-0:GOSUB 3100 

2184 IF ZPOO THEN GOSUB 3200 

2185 NEXT y 

2187 IF HP05 AND VP05 THEN HE 
TURN 

2188 IF MVOO THEN T{E,2)-MV:RE 
TURN 

2189 HP-T(E,e)-T(SP,8) :VP-T(E.9 
)-T(SP,9> :GOSUB 3200 

2190 RETURN 
3000 REM 
3010 GP — 1 

3020 FOR M-RA TO {RA+7J 
3030 XX-ABS(T(M,8)-T(HS,8)) rYr- 
ABSCTtM.gj-TtRB.g)) 
3040 IF XX<RC AND yY<HD AND T (M 
,1X4 THEN RC-XX:HD-YY:GP-H 
3050 NEXT M 
3060 RETURN 
3100 REM 

3110 IF T{V,1)>3 THEN RETURN 
3120 XX-ABStT(U,8)-T<E,BJ) :YY-A. 




tOffi 
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BS(T(V,9) -T(E,9>) 

3130 IF Tty,7)>-TCE,7) AND XX<5 

AND YY<5 THEN MV-T{V,2) 
3140 IF XX<HP AND YY<:VP THEN HP 
-XX:UP-Yy:ZP-l:ftETURN 
3150 RETU&N 
3200 REM 

3210 IF aP>-0 THEN LP-1 
3220 IF aP<0 THEN LP-3 r HP-ABS (H 

P) 

3230 IF VP>-0 AND ABS<UP)>HP TH 

EN LP-2 

3240 IF VP<0 AND ABS(VP)>HP THE 

N LP-4:UP-ABS{VP) 

3250 T(E,2)*LP 

3260 RETURN 



Sim 



m 



360 DIM T$t8) .03(5) ,WS(5) .M3{5 
) ,AS(4) ,HS(4) ,C(e) 
416 SP - 

1665 IF HN > 8 THEN C (WN - 8) 
= 8 

1666 IF LO > 8 THEN CCLO - 81 
= T{WN,2) 

1760 RA - ST:HB - SH:BC - FX:HD 

- FY; GOSUB 3000 
2140 REM SELECAO 

2143 R - FN R{10) 

2144 IF R ■ 1 OH TCSP.l) > 3 T 
HEN SP = FN R(B) 

2145 IF R - 1 AND T{SP,1) > 3 
THEN 2143 

2150 IF C(E - 8) - B THEN BET 

URN 

2155 IF CIE - 8) < > THEN T 

(E,l) = 3:T(E.2) - C{E - 8):CCE 

- 8) - 0: RETURN 

2170 IF T(E.3) - 2 THEN RA - 1 
:RB - E:RC - 5:HD - 5: GOSUB 30 
OOr IF GP < > - I THEN T{E.l) 

- 1 : RETURN 

2180 T(E,1) =■ 3 

2181 HP - 5:VP - 5;MV - 

2182 FOR V = 1 TO 8 
2X83 2P « 0; GOSUB 3100 

2184 IF ZP < > THEN THEN 

GOSUB 3200 

21B5 NEXT V 

2187 IF HP < > 5 AND VP < > 

5 THEN RETURN 

2186 IF My < > THEN T(E,2) 

» MU; RETURN 

2189' HP - T(E,8) - T(SP.e):UP - 

T{E.9) - T(SP,9): GOSUB 3200 
2190 RETURN 
3000 REM ALCANCE 
3010 GP - - 1 

3020 FOR M = RA TO (RA ■•■ 7) 
3030 XX - ABS [T{M.8) - T{RB,S 
}):YY ■= ABS {T(M,9} - T(RB,9)) 
3040 IF XX < BC AND YY < RD AN 
D T(M.l) < 4 THEN RC - XX:RD - 
YY:GP • « 
3050 NEXT M 
3060 RETURN 
3100 REM PODER 
3110 IF T(V,1) > 3 THEN BETUH 
N 



3120 XX - ABS (T(V.8) - TCE.aj 

) :YY - T(V,9) - T(E,9)) 

3130 IF T(V.7) > - T(E.7} AND 

XX < 5 AND YY < 5 THEN MV = T ( 
V.2) 

3140 IF XX < HP AND YY < VP TH 
EN HP - XX;VP - YY : ZP - 1: RETU 
RN 

3150 RETURN 
3200 REM CONCENTRACAO 
3210 IF HP > - THEN LP-1 
3220 IF HP < THEN LP " 3 : HP 
- ABS (HP) 

3230 IF UP > - AND ABS {UP 
) > HP THEN LP-2 
3240 IF VP < AND ABS (VP) > 

HP THEN LP = 4: UP - ABS (VP) 
3250 T(E,2) - LP 
3260 RETURN 

a 

As retinas que cometjam em 3000 de- 
vem ser renumeradas a fim de liberar es- 
pa9o para essas linhas. Digite: 

RENUM 4000, 3000 

Em seguida, acrescenie estas linhas; 

360 DIM TS(S) ,0S(5) .W9(5) ,MS(5) 
,AS{4) ,RS{4) ,C{8) 
416 SP-1 

1665 IF WN>8 THEN CtWN-S)-8 

1666 IF L0>8 THEN C (LO-S) -T(WN, 
2) 

1760 RA=ST:HB=SH:HC-FXLaD-FY:GO 

SUB 3000 

2140 HEM INIMIGO 

2142 REM LOOP 

2143 R-RND(IO) 

2144 IF H-1 OR T(SP,1)>3 THEN S 
P=RND(8) 

2145 IF R=l AND TtSP,l)>3 THEN 
2142 

2150 IF C{E-8)-8 THEN RETURN 
2155 IF C<E-B)<>0 THEN T(E,1)=3 
:TfE, 2) -C(E-8) iC (E-8) »0 :RETURN 
2170 IF T(E,3)^2 THEN HA-liRB-E 
:RC=5 :RD"5i GOSUB 3000: IF GPO-1 
THEN T{E,l)'l:HETUaN 

2180 T(E,1)=3 

2181 HP=5:VP-5:MV=0 

2182 FOR V-'l TO 8 

2183 ZP=0:GOSUB 3100 

2184 IF ZPOO THEN GOSUB 3200 

2185 NEXT V 

2187 IF HP05 AND VP05 THEN RE 
TURN 

2188 IF MVOO THEN T(E,2)=MV:HE 
TURN 

2189 HP=T(E.e)-T(SP.8) ;UP-TCE,9 
)-T(SP,9) : GOSUB 3200 

2190 RETURN 
3000 REM 
3010 GP--1 

3020 FOB M»RA TO (RA+7) 
3030 XX=ABS(TCM,8)-T(RB,8)) :YY- 
ABS(T{M,9)-T(RB.9J ) 
3040 IF XXCHC AND Yy<RD AND T (M 
,1}<4 THEN RC'-XX:RD=YY:GP-M 



3050 NEXT M 

3 060 RETURN 

3100 REM 

3110 IF T{V,iy>3 THEN RETURN 

3120 XX-ABS{T<V,B)-T(E.8)) :XY-A 

BS(TCU,9)-T(E,9)) 

3130 IF T(V,7>>»T{E,7) AND XX<5 

AND Yy<5 THEN MV-T{V.2) 
3140 IF XX<HP AND YY<UP THEN HP 
-XX : UP-YY : ZP-1 : RETURN 
3150 RETURN 
3200 HEM 

3210 IF HP>'-0 THEN LP=1 
3220 IF HP<0 THEN LP-3 : HP=ABS (H 

P) 

3230 IF VP>=0 AND ABS{UP)>HP TH 

EN LP=Z 

3240 IF VP<0 AND ABSCUP)>HP THE 

N LP-4;UP=ABS(VPJ 

3250 T{E.Z)-LP 

3260 RETURN 



COMO FUNCIONA 



As adigfies anteriorcs k linha 2140 
cuidam de algumas varidveis extras que 
serao utilizadas. 

No inicio da rotina de escolha, ha 
uma chance em dez de que compula- 
dor mude o ponto de concentra?ao. Es- 
te e verificado e modificado de acordo, 
mas nao se realiza nenhuma acao neste 
estdgio — outros testes precisam ainda 
ser feitos. 

Se a unidade for constituida de ar- 
queiros, a linha 2170 usa a retina de al- 
cance para decidir se atira. Caso os ar- 
queiros nao disparem, ou se a unidade 
for de ouiro tipo, a linha 2180 muda a 
ordem para MARCHE. A segao seguin- 
te do programa verifica cada uma das 
unidades inimigas, A linha 2183 utiliza 
a rotina de poder para determinar a di- 
refao do movimento. 

Se a unidade em questao nao estiver 
envolvida em combate nem prestes a se 
envolver, a rotina de concentratao (li- 
nha 3500) faz com que ela se mova em 
dire^ao ao ponto de concentrapao- 



A ESCOLMA E SUA 



Voce pode adicionar qualquer das 
vers6es aqui apresentadas, ou mesmo as 
duas, para melhorar o desempenho do 
micro, enquanto jogador. Tudo depen- 
derA do tipo de oponente que desejar. 

A prdpria natureza das heuristicas in- 
corporadas ao programa faz com que 
elas falhem em certas circunstSncias. Al- 
guns jogadores acharao essas regras me- 
nqs adequadas do que outras eventual- 
mente deduzidas pela pritica. S6 urn 
processo de tentativa e erro determina- 
tA as melhores estrat^gias e muitas ou- 
tras retinas poderto ser tentadas. 



ACAO BASIC 



NOVA 





Neste artigo voce ficard conhecendo 
novas maneiras de transmitir 
mensagens confidenciais, sem correr 
risco de que elas sejam 
decifradas por pessoas indesejadas. 



No artigo Mensagens Secrelas (pagi- 
na 888), sugerimos vdrios metodos pa- 
ra a transmissao de informapoes de ca- 
rater confidencial. Alguns deles sao re- 
iativamente faceis de serem decifrados; 
entretanto, se recorrermos ao auxi'lio do 
computador, poderemos chegar a meto- 
dos mais complexos e com diferentes ni- 
veis de sofisticagao. 



;agens 



COMO DECIFRAR CbDIGOS 



Da mesma maneira que os criptogra- 
fos tentam desenvolver codigos que ofe- 
regam mais seguranca, muitos especia- 
listas estudam uma forma de frustrar es* 
sas tentativas. Uma arma muito pode- 
rosa para se decifrar simples c6digos de 
substituivao ou de iransposigao consis- 
te na contagem de freqiiencia das letras. 
Em portugues, as leiras que ocorrem 
com mats freqiiencia sao — nesla ordem 
— A, E, O, S, R, 1, C, Desse mode, se 
em um texto codificado aparecerem 
muitas vezes as letras AEOSRIC, pro- 
vavelmente voce estara manipulando um 
c6digo de transposicao. Se outras letras 



COMO DECIFRAR CODIG OS 

programa pe distrjbuic ao 

de letras 

cOdigos multiplicativos 



livro-cOdigo 



se repetirem mais vezes, a codificaigao 
pode ter sido feita com um metodo de 
substitui{;ao. E importante levar em con- 
ta que essa distribuicao e exclusiva de 
cada idioma. Portanto, torna-se funda- 
mental saber em que lingua foi escrita 
a mensagem. 

Seja como for, seri necessario fazer 
a contagem da freqiiencia das letras na 
mensagem. Isso pode consumir muito 
tempo e 6 um processo bastante suscep- 
tive! de erros. O programa aqui apreseti- 
tado Ihe seri litii nesses casos. Basta que 
voce digite o texto e o computador ime- 
diatamente o informarS do niimero de 
vezes que cada letra apareceu. 

A figura da pagina 1091 mostra a fre- 
qiiencia das letras em um texto consti- 
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tuido de cem paiavras. Observe que os 
numeros seguem, razoavelmente, o prin- 
cfpio que acabamos de comentar. 

Agora, digite o programa e veja co- 
mo isso funciona na prdtica. 



15 POKE Z3658.8 

20 BORDEB 0: PAPER 0: INK 7: 

CLS 

30 PRINT TAB 5;"C0NTAGEM DA F 

BEQUENCIA" ' ' 

40 PRINT TAB 12 ! "CUIDADO" ' ' 

50 PRINT FLASH 1;AT 4 , 7 ; "NAO 
DEIXE ESPACOS''jAT 5 , 9 ; ' ENTR 

E PAL AVRAS " ' ' 

60 DIM nlZ8) 

70 PRINT " Para flnalizar ent 

rada do tento digite ' * '" 

80 FOR t=l TO 28- LET n(t)=0: 
NEXT t 

90 INPUT "Introduza o texto" ; 

aS 
100 IF 3S="«" THEN GOTO 180 
110 CLS 

120 FOB l=i TO LEN aS 
130 FOR j=l TO 26 
140 IF j=CODE (a$(i TO iJ)-G4 
THEN LET n(j)=n<j)+l 
ISO NEXT j 
160 NEXT i 
170 GOTO 90 
180 CLS 

190 PRINT "Letra Freti' Le 
tra Freq'" 
200 FOB 1=1 TO 13 
210 PRINT TAB 2 ; CHR$ (64+1); 
TAB 10;n(i):TAB 19;CHR5 (77+13 
:TAB 27in(13+i) 
220 NEXT i 
230 STOP 

D 

20 CLS 

30 PRINT e5."C0NTAGEM DA FREQUE 

MCIA" 

40 PRINT e76,''CUIDADO- 

50 PRINT §134, "NAO DEIXE ESPACO 

S": PRINT ei66,"ENTRE AS PALAVRA 

S" 

60 DIM N(2e) 



1o^ 



A tabela de fr«|ii£iiciB das letras lem 
grande atilidade na dccifra^io de c6digos. 



70 PRINT €225, "PARA FINALIZAH E 

NTRADA DO TEXTO E EMITIR RESULT 

ADOS DIGITE *"* 

80 FOR T-1 TO 26:N(T)-0:NEXT 

90 INPUT" INTRODUZA TEXTO " ; AS 

100 IF AS-"*' THEN 180 

110 CLS 

120 FOR I-l TO LEN(AS) 

130 FOR J=l TO 26 

140 IF J-ASC{MID$(AS,I,l))-64 T 

HEN N(J)=N(J)+1 

150 NEXT J 

160 NEXT I 

170 GOTO 90 

190 CLS 

190 PRINT "LETRA FREQ' LET 

RA FREQ ' " 

200 FOR I-l TO 13 

210 PRINT TAB{2) ;CHHS(64+I) ;TAB 

(10) ;N(I) ;TAB(19) ;CHR$(77+I) i TA 

B(27) ;N(13+I) 

220 NEXT 

230 END 



aiLS] 




20 HOME 

30 PRINT TAB( 9) "CONTAGEM DE 

FHEQUENCIA" : PRINT 

40 PRINT TAB( 17) "CUIDADO" : P 

RINT 

50 PRINT TAB( 12) "NAO DEIXE E 

SPACOS": PRINT TAB( 12)''ENTRE 

AS PALAVBAS" 

60 DIM N{2H) 

70 PRINT ; PRINT : PRINT TAB ( 

9) "PARA FINALIZAH A ENTRADA" : 
PRINT TAB{ 11)" DO TEXTO DIGIT 
E "' 

80 FOR I - 1 TO 2e:N{T) = 0: N 
EXT 

90 PRINT ; INPUT "DIGITE O TEX 
TO "iAS 

100 IF AS - •** THEN 180 
110 HOME 

120 FOR I » 1 TO LEN (A$) 
130 FOR J - 1 TO 26 
140 IF J - ASC ( MID5 (AS.I.l 
)) - 64 THEN N(J) = N (J) + 1 
150 NEXT J 
160 NEXT I 
170 GOTO 90 
180 HOME 

190 PRINT "LETRA FRIQ LETB 
A FREO" 

200 FOB I - 1 TO 13 
210 PRINT TAB( 2); CHR$ (64 + 

I): TAB( 10);N(I); TAB ( 17); C 
HRS (77 + I): TAB{ 25)iN(13 + I 
) 

2 20 NEXT I 
2 30 END 



20 CLS 

30 PRINT TAB (9) "CONTAGEM DE FRE 

QUENCIA" : PRINT 

40 PRINT TAB{17) "CUIDADO" : PRINT 

50 PRINT TAB(12)"NA0 DEIXE ESPA 

COS": PRINT TAB(12) "ENTRE AS PAL 

AVRAS' 



60 DIM N(28} 

70 PRINT: PRINT: PRINT TAB (8) "PAH 

A FINALIZAH A ENTRADA" : PRINT TA 

B(12)"DO TEXTO DIGITE *" 

80 FOR 1 = 1 TO 2B:N{T)'»0:NEXT 

90 PHINT: INPUT "DIGITE TEXTO" 

;AS 

100 IF A$-"«" THEN 180 

110 CLS 

120 FOR I-l TO LEN (AS) 

130 FOR .1-1 TO 26 

140 IF J-ASC(MIDS(AS,I,l))-64 T 

HEN N(J)=N{J)+1 

J50 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

190 PRINT "LETRA FREQ LETRA 

FREQ" 
200 FOB 1=1 TO 13 

210 PRINT TAB(2) jCHRS (64+1) :TAB 
(10) iN(I) ;TAB(17) ;CHB3{77+I) ;TA 
B(25) ;N(13+I) 
220 NEXT I 
230 END 

A estrulura operacional deste progra- 
ma esta fundamentada em um simples 
mecanismo de contagem. 

Em sua primeira parte i atribuido o 
vaior zero ^s 28 variiveis indexadas, 
sendo que 26 dessas variiveis serao usa- 
das para a contagem da freqijenda com 
que aparecem as 26 letras. As duas va- 
riaveis restantes foram incluidas tendo 
em vista a possibilidade de uma futura 
amplia?ao do programa; nesse caso, po- 
dem ser incorporados algaiismos ou 
quaisquer outros sinais gr^ficos. 




IF" ^7 mMmA(AQJASI( $7 



II 



C6OIGOS MULTIPLICATIVOS 



Durante a Guerra Civil Norte-Ame- 
ricana (1861-1863) criou-se um tipo es- 
pecial de cddigo para a comunicacSo en- 
trc as tropas, Que funciona da seguinte 
forma: suponhamos que se queira pas- 
sar para um oficiaJ preso a mensagem 
ESCAPAR PARA LONDRES. Nesse 
caso, a primeira letra da frase seria co- 
locada na primeira linha, a segunda le- 
tra na segunda linha, a terceira letra de 
votta na primeira linha e assim por digji- 
te, de tal maneira que a frase acabaria 
ficando assim: 

ECPRAAODE 
SAAPRLNRS 

Escrita por extenso, a mensagem se- 
ria a seguinte: ECPRAAODE- 
SAAPRLNRS; divldida a fim de con- 
fundir o inimlgo: ECPRAA OD 
ESAAP RLNRS. 

Na verdade, esse c6digo € um caso es- 
pecial do que se chama atualmente c6- 
digo multiplicativo. 

Em nossa mensagem, o texto cont^m 
dezoito caracteres. Estes podem ser ar- 
ranjados em matrizes do tipo: 2 x 9, 9 
X 2, 3 X 6, ou 6 X 3, como mostram as 
ftguras da pAgina 1095. 

Qualquer pessoa que queira decifrar 
a mensagem, sem saber que se trata de 
um cddigo multiplicativo, tera muito 
trabalho. O processo de codifica^ao, no 
entanto, e muito simples: tudo o que se 



tern a fazer i escrever a meosagem ver- 
ticalmente, letra por letra, preenchendo 
totalmente a primeira coluna da matriz. 
Em seguida, partimos para a prdxima 
coluna e repetimos o processo, at^ que 
a mensagem termine e a matriz esteja 
completa. Finalmente, copiamos as li- 
nhas lado a lado, come^ando sempre pc- 
la primeira. 

6 importante que a mensagem ecu- 
pe totalmente a matriz escolhida. Para 
tanto, podemos introduzir no texto al- 
guns caracteres ou palavras sem nexo, 
que ter§o a fun^ao extra de confundir 
quern tentar decifr^-lo. 

O lago que se encontra entre as linhas 
140 e 210 ^ a parte principal do progra- 
ma, responsivel tanto pela codificagao 
como pcla decodificaijao. 



20 


BORDEH 0: PAPER 


Or INK 7: 


CLS 








30 


PRINT 


TAB (6} J" 


CODIGO 


MULT 


IPLICATIVO- 






40 


PRINT 


: PRINT : 


PRINT 




50 


PRINT 


FLASa l! 


PAPER 


Sj-N 


AO 


DEIXE 


ESPAC03 ENTRE PALAVR 


AS" 










60 


INPUT 


'INTRODUZA TEXTO ' 


'nS 








70 


INPUT 


"LINHAS 7 


i J" 




80 


INPUT 


"C0LUNA3 


? ";n 




90 


INPUT 


" (c)ODIFICAfl OU 


tt})E 


CODIFICAB 


? ";e3 






100 


PAUSE 


50: CLS 






110 


IF e3 = 


"c" THEN 


LET K= 


■1 


120 


IF eS = 


-d' THEN 


LET x= 


n 



130 DIM dStx.LEN mS/x] 

140 FOB 1=1 TO X 

155 LET a3='": LET m3=raS+" " 

160 FOR j = l TO LEN ni3-l STEP x 

ISO LET a$=aS+ffl$(l+J-l TO i+j- 

1) 

190 NEXT j 

195 LET d3{i)=aS 

197 LET m3=iBS( TO LEN mS-l) 

200 PRINT d3ti)!: IF eS=''c" 

THEN PRINT " "i 

210 NEXT i 

220 STOP 

D 

20 CLS 

30 PRINT 66, "CODIGO WULTIPLICAT 

lUO' 

40 PRINT: PRINT: PRINT 

50 PRINT'NAO DEIXE ESPACOS ENTR 

E PALAVRAS' 

60 PRINT :INPUT"TEXTO "iMS 

70 INPUT-LINHAS "■ ;M 

80 INPUT"COLUNAS " ; N 

90 INPUT" (C) ODIFICAR OU (D) ECOD 

IFICAH ";ES 

100 FOR L"l TO 1000:NEXT 

110 IF E$-"C" THEN X-M 

120 IF ES-^'D- THEN X-N 

130 DIM D$ (X) 

140 FOR I-l TO X 

150 DS(I)-" " 

160 FOR J=l TO LEN (MS) STEP X 

170 B$-MIDS(MS.I+J-1. I) 

ISO DS(I)-D3<I)+BS 

190 NEXT J 

200 PRINT DS(I) 

210 NEXT I 

220 END 




IB 
H 





Hd vantagens em se criptografar um 
pfograma de computador? 

A cesposta depends do tipo de pro- 
grama. Nao h^ nenhuma vantagem em 
crtptografar um programa em lingua- 
gem de mSquina (c6digo binSrio) — ta- 
refa, ali^s, impossfvel para muitos mi- 
cros, que nio poderao executS-lo de- 
pois. Mas, se o programa estiver em 
cddigo-fonte (linguagem de alto nivel, 
como BASICI, As vezes pode ser van- 
tajoso criptogrsf^-lo. 

objetivo da criptografta de progra- 
mas 6 proteg8-!os contra a cdpia e a 
imita^iao ilegais. Uma aplicapao muito 
freqOente ocofre na trangmissao de 
programas de computador em sistemas 
telem^ticos. Aqui, o objetivo 6 tomm- 
ies imunes k c6pia (legal no momento 
da transmtss^o. Nessecaso, ointeres- 
sado pode criptografar o programa co- 
mo um texto qualquer, usando um dos 
m^todos explicados neste artigo (o 
muitiplicativo costuma ser o mais em- 
pregadoj. 



HIE] 

20 BOME 
30 PRINT 
IPLICATIVO 
40 PRINT 
!iO PRINT 
SPACOS": PR 
AS PALAVRAS 
PRINT : 
INPUT - 
INPUT 
INPUT 
DIFICAHCD) : 
100 FOB L 
IF ES 
IF ES 
DIM D$ 
FOR I 
IF E$ 



60 
70 
80 
90 



110 
120 
130 
L40 
150 



TABC 10)-CODIGO MULT 

PRINT : PRINT 
TABC 12) "NAO DEIXE E 
INT TABC 12)"ENTHE 

INPUT "TEXTO:";MS 
LINHAS:" ;M 
COLUNAS:";N 
CODIFICAR{C) OU DECO 
" :ES 
» 1 TO 1000: NEXT 

- "C" THEN X - M 

- "D" THEN X - N 
<X) 

- I TO X 

= "C" THEN DS(I3 - " 



160 FOR J = 1 TO LEN (MS) STE 

P X 

170 BS - MIDS (MS. I + J - 1.1) 

180 DS(I) = D3{I) + BS 

190 NEXT J 

200 PRINT DS(I);: IF ES = "C" 

THEN PRINT 

210 NEXT I 

220 END 



Para usar o sistema de livro-cddigo, tanto o emissor quanto o receptor 
da mensagem precisam ter uma cApia identica do dicionirio fixo. 



f^ 



ZO CLS 

30 PRINT TABdOJ'CODIGO MULTIPL 



ICATTVO" 

40 PRINT: PRINT: PRINT 

50 PRINT TABC12)*'NA0 DEIXE ESPA 

gOS":PBINT TAB(12)''ENTHE AS PAL 

AURAS" 

60 PRINT: INPUT'TEXTO: " rMS 

7 lNPUT"LINHAS:-iM 

80 INPUT"COLUNAS:"iN 

90 INPUT'CODTFICAR(C) OU DECODI 

FICAH (D) : " :ES 

100 FOR L=l TO IO00:NEXT 

110 IF ES='"C" THEN X-M 

120 IF ES="D' THEN X-N 

130 DIM D$CX) 

140 FOR 1=1 TO X 

150 IF ES-'-C THEN DSCI)-" " 

160 FOR J=l TO LEN<M3) STEP X 

170 B$=MIDS(MS,I+J-1.1) 

180 DS{I)=D5CI)+B$ 

190 NEXT J 

200 PRINT DS(I);:IF ES-'C THEN 

PRINT 
210 NEXT I 
ZZO END 



UVR0.C6DIG0 



At^ agora, trabalhamos apenas com 
cifras. Os c6digos propriamente ditos 
consistem na substitui?ao de uma pala- 
vra OU frase por outras. Isso exige que 
se recorra sempre a um livro-cddigo, que 
deve ser guardado com muito cuidado, 
de mode a evilar que caia em maos es- 
tranhas. Por esse motive, geralmente, os 
textos sao codificados e recebidos em lu- 
gares fixos, bem seguros. 

O programa seguinte monta um di- 
cionSrio de c6digos de vinte palavras. 
Usando uma matriz bidimensional 
A$(1,J), onde 1= 1 guarda a palavra e 
1 = 2 guarda seu codigo, primeiramente 
sSo lidas as informa^oes ap6s os coman- 
dos DATA. A parte seguinte, que vai da 
linha 120 k linha 170, recebe a palavra 
e imprime o c6digo correspondente, ou 
faz o contrario, caso voce tenha opta- 
do pela decodifica^ao. 

A mensagem FUGIR DE ROMA A 



MEIA-NOITE DE DOMINGO CHE- 
GAR A NOVA YORK AO MEIO-DIA 
seria codificada como: 40476 10996 
23874 12128 26569 10996 40553 68719 
12128 54982 69783 1 1072, O texto codi- 
ficado: 74891 22317 69783 74832 seria 
traduzjdo para ENVIAR DENHEIRO 
AO ANOITECER. 

Com o pr6ximo programa, voce po- 
dera codificar e decodificar rapidamente 
suas mensagens. Nas sltuafoes reais, on- 
de sao transmitidos textos muito gran- 
des e OS dicionarios sao volumosos, o 
computador exerce um papel fundamen- 
tal, poupando bastante tempo. 



20 BORDER 0: PAPER 0: INK 7: 
CLS 

25 POKE 23658,8 
30 PRINT TAB (10) ;' 
ODIGOS" 

4 PRINT : PRINT ; 
50 DIM aS(2,20,10) 
60 FOR 1=1 TO 2 
70 FOR j-1 TO 20 
BO BEAD a$(i, j) 
90 NEXT j: NEXT i 
100 INPUT "CODIFICAR (0) OU DE 



'LiyRO DE C 



PRINT 



CODIFICAR 
110 CLS 
120 INPUT 



'DiQite a palavra';M 



125 IF LEN niS> = 10 THEN GOTO 

130 

127 FOR n-1 TO 10-LEN mS : LET 
BiS=inS+" ": NEXT n 
130 IF m$="«" THEN 
140 FOR t=l TO 20 
150 IF inS = 3S(l+x.t) 
PRINT aS(2-X,t) 
160 NEXT t 
170 GOTO 120 
ISO DATA "BRASILIA" 
' PARIS ","ROMA- 
190 DATA 'CHEGADA'. 
PABA-,'FUJA PARA", 
200 DATA "DOMINGO", 
"AMAHHECEft" , "MEIA-NOITE" 
210 DATA "ANOITECER". "EM", "AO 



GOTO 280 



THEN 



."LONDRES", 

"SAIDA",-VA 

"SABADO- 
"MEIO-DIA". 




Usando o c6d[go de muUlpllca(io com djversas cliaves, vocS poderi cHptografar a tnesma mensagem de virias maaeiras. 
O texto cifrsdo i sempre apresentado em grupos de letrms de compdmento fixo. 



220 DATA 'DINHEiaO","COMIDA- 
230 DATA -54982". ■ 73581", *9007 

5", "23874" 

240 DATA -68719', -68677", -103Z 

7" . "40476" 

250 DATA "27921", -18553". '1107 

2", "70355" 

260 DATA "26569", "74832". "1099 

6", "12128" 

270 DATA "69763". "74891", "2231 

7", "98724" 

280 STOP 



SllS] 



a 



20 CLS 

30 PRINT #8,"LIVR0 DE CODIGO* 

40 PRINT: PRINT; PRINT 

SO DIM AS (2, 20) 

60 FOR I-l TO 2 

70 FOB J-1 TO 20 

BO READ A3 (I, J) 

90 NEXT J, I 

100 INPUT"C0D1FICAR {0) OtT DECO 

DIFICAH (1)";X 

110 CLS 

120 INPUT-DIGITE A PALAVHA " ;MS 

130 IF MS-"*" THEN END 

140 FOR T=-l TO 20 

150 IF MS-AS(1+X,T) THEN PRINT 

AS(2-X.T) 

160 NEXT 

170 GOTO 120 

180 DATA BRASILIA, LONDBES. PARIS 

,ROHA 

190 DATA CHEGACA. PARTI DA DC.VA 

PARA , FU J A PARA , SAB ADC 

200 DATA DOMINGO. MEIO-DIA,AMANH 

ECER.MEIA-NOITE 

210 DATA ANOITECER,EM,AO,N0.ENV 

IE 

220 DATA DINHEIHO.COMIDA 

230 DATA 54982,73581,90075,2387 

4 

240 DATA 68719,68677.10327,4047 

6 

250 DATA 27921.48553,11072,7035 

5 

260 DATA 26569.74832,10996,1212 

8 

270 DATA 69763.74891,22317.9872 

4 



20 HOME 

30 PRINT TAB( 14)"LIVR0 CODIG 

0" 

40 PRINT ; PRINT t PRINT 

50 DIM AS (2. 2(1) 

60 FOR 1=1 TO 2 

70 FOR J = 1 TO 20 

80 HEAD AS (I, J) 

90 NEXT J 

95 NEXT I 

100 INPUT "CODIFICAR(O) OU DEC 

ODIFICAR(i) ?";X 

110 HOME 

1,20 INPUT "DIGITE A PALAVRA " ; 

MS 

130 IF MS = "*" THEN END 

140 FOR T = 1 TO 20 

150 IF MS - ASn + X,T) THEN 

PRINT A5(2 - X.T) 

160 NEXT T 

170 GOTO 120 

1 80 DATA NOVAYORK , LONDBE.'j , PA 

RT S.ROMA 

190 DATA CHEdAR.PABTIB.IR.FUG 

IR.SABADO 

20 DATA DOMTNCjO.NEIO-DJA, TA 

HDE.MEIA-NOITE 

210 DATA ANOITECEH,DF.,A,AO, 

ENVIAR 

220 DATA DINHEIRO.SUPRIMENTO 

230 DATA 54982,73581.90075,23 

974 

240 DATA 68719.68677,10327,40 

476 

250 DATA 27921,48553.11072,70 

355 

260 DATA 26569,74832.10996,12 

126 

270 DATA 69783,74891.22317,98 

724 



m 



20 CLS 

30 PRINT TAB(14r'LIUR0 CdDIGO" 
40 PRINT: PRINT: PRINT 
50 DIM A$(2,20} 
60 FOR I-l TO 2 



70 FOR J-1 TO 20 

80 READ AS (I, J) 

90 NEXT J 

95 NEXT 1 

100 TNPOT "CGDTFICAHtO) OU DECO 

DIFICARCD ";X 

110 CLS 

120- INPUT "DIGITE A PALAVHA 'sM 

S 

130 IF MS='*" THEN END 

140 FOR T-1 TO 20 

150 IF M3-A$(1+X,T) THEN PRINT 

A3(2-X,T) 

160 NEXT T 

J70 GOTO 120 

180 DATA NOVAYORK, LONDREB. PARIS 

, ROMA 

190 DATA CHEGAR.PARTIR.IB.FUGIR 

, SABADO 

200 DATA DOMINGO. MEIO-DIA.TARDE 

.MEIA-NOITE 

210 DATA ANOITEC:EB,DE,A,AO.ENVI 

AR 

220 DATA DINHETBO.SUPHIMENTO 

230 DATA 54982,73581,90075,2387 

4 

240 DATA 68719.68677.10327.4047 

6 

250 DATA 27921.48563,11072,7035 

5 

260 DATA 26569.74832.10996.1212 

8 

270 DATA 69783,74891.22317.9872 

4 

Apesar de estar limitado a apenas 
vinte palavras. o programa pode ser fa- 
cilmente ampliado. Por exemplo, se vo- 
ce quiser fazer um dicionirio de cin- 
qiienca palavras, bastari trocar 20 por 
50 nas linhas 50, 70 e 140. fe ciaro que 
voce teri tambem que fazer novas linhas 
DATA, com as palavras e c6digos su- 
pletnentares. 

No programa atual para o Apple, vo- 
cfi nao poderS introduzir palavras com 
mais de dez caracteres. Caso queira am- 
pliar este numero para doze, por exem- 
plo, voce deve substituir 10 por 12 na 
tlnha 50. Essa restri^ao nao existe nos 
outros programas. 
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Utilizando pSginas grlficas, 
vocd poderd criar as mais diversas 
figuras e cenas animadas no 
microcomputador. Elas tornarSo 
seus jogos muito mais divertidos. 



P 



Todos OS tipos de animacao reiacio- 
nam-se a um fenomeno da percep?ao 
conhecicfo como persistencia da visao. 
Cada imagem transmitida ao c^rebro 
permanece "gravada" na mem6ria por 
alguns instantes, mesmo que nossa vi- 
s5o jd esteja captando uma nova ima- 
gem Porem, quando uma serie de ima- 
gens e mostrada com muita rapidez, o 
cerebro nao consegue separi-ias, pois 
nao processa mais de doze imagens por 
segundo. As imagens parecem, entao, 
sair umas das outras, e e exatamente is- 
to que di a impressao de movimento. 

Certos livros infantis, cujas ilustra- 
96es compoem uma seqiiencia de ima- 
gens, permit em que se perceba esse fe- 
nomeno com clareza. Folheando-os ra- 
pidamente, suas figuras parecem se mo- 
vimentar. Tambem o jogo de sombras 
chinesas, um dos nais remotos precur- 
sores do cinema, vale-se desse fenome- 
no: figuras recortadas ou criadas com 
as maos sao projetadas sobre paredes ou 
telas de linho era ritmo acelerado, for- 
mando uma sombra animada. 

Finalmente, apesar dos progressos 
tecnologicos, o prdprio cinema recorre 
ao mesmo principio bdsico: os quadros, 
fixados em um filme, sao projetados a 
velocidade de 25 unidades por segundo. 
Criam-se, assim, duas ilusoes dpticas: a 
de que ha uma corrente continua de 
imagens, quando, na verdade, elas se su- 
cedem de modo descontinuo; e a de que 
coisas imdveis tem movimento. 

A montagem de um desenho anima- 
do e bem mais trabalhosa. O artista de- 
senha sobre uma folha transparente. Ao 
mudar de quadro, sobrepoe a essa fo- 
lha uma outra, e copia o desenho ante- 
rior, mudando ligeiramente sua forma. 
Tente calcular quantas cenas ele preci- 
saria desenhar para produzir um dese- 
nho animado de uma bora de duragao. . , 



GflAFICOS NO COMPUTADOR 



Por que nao usar o computador pa- 
ra agilizar esse processo, se at^ os mi- 
cros mais simples sao capazes de fazer 
desenhos de boa qualidade? 

A capacidade grdfica dos micros 
atuais chega a ser impressionante. En- 
tretanto, isso nao e suficiente para sa- 



tisfazer o piiblico de um cinema. O cus- 
to da producao de um filme de fic^So 
cientifica em computador chega a ser da 
ordem de milhoes de ddlares, devido aos 
equipamentos carissimos que sao usa- 
dos. Esse pre^o s6 6 compensador quan- 
do roteiro requer cenas impossfveis de 
serem obtidas na vida real. 

A grande maioria das pessoas n3o 
tem acesso a computadores profissionais 
de animagao grifica. Portanto, devem 
contentar-se em usar seus prriprios mi- 
cros para exccutar tais tarefas. 

A animaijSo grifica ^ uma das mui- 
tas aplica(;6es dos programas de proje- 
to assistido por computador (PAC), ja 
discutido em artigos anteriores. Nesses 
casos, o grau de sofisticagao alcan9ado 
6 limitado pela capacidade do micro- 
computador utilizado. Um dos mais po- 
derosos equipamentos de anima^ao gra- 
fica para filmes, por exemplo, 6 o Cray 
X-MP, um supercomputador que ope- 
ra k velocidade de 100 megaflops (100 
milhoes de operafoes em ponto flutuan- 
te por segundo). Mas, como as imagens 
sao muito complexas e tem que ser tro- 
cadas muitas vezes por segundo, nem 
mesmo o Cray consegue gerar uma ani- 
ma^ao em tempo real. Suas imagens 
precisam ser filmadas separadamenle, 
quadro a quadro, e recompostas, come 
se faz em um desenho animado. 

Uma figura sem muitos detalhes, po- 
r6m, permite animaeoes bem pr6ximas 
do real. Voce mesmo ja deve ter visto 
videogames bem produzidos, em que as 
imagens geradas chegam k velocidade de 
ctnquenta quadros por segundo. 

O maior problema em uma animafao 
feita no computador 6 a grande quanti- 
dade de informacoes existentes em um 
desenho. Quanto maJs detalhada a figu- 
ra, mais mem6ria e exigida para seu ar- 
mazenamento. Igualmente, quanto mais 
colorida for a imagem, rnais espa§o de 
mem6ria RAM ^ necessario. 

Devemos tambem levar em conta 
que, a medida que cresce a quantidade 
de informagSes a serem processadas pela 
UCP, mais lenta se torna a animafao. 
6 por esse motivo que nem mesmo os 
mais sofisticados computadores sao 
auto-suficientes na producao de um fil- 
me ou desenho animado. Nao existe ain- 
da uma UCP tao rdpida a ponto de dis- 
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pensar, totalmente, o processo manual 
de montagem quadro a quadro. 

Se a amma9ao de figuras € uma tare- 
fa lenta para os mais avangados compu- 
tadores, como voce podera movimenta- 
las na tela de seu micro? Uma das solu- 
goes consiste em langar mSo das pigi- 
nas grdficas. 




II 



= r -^ 



A PERSISTENCIA 
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A LANTERNA MAGICA 



DESENHO ANIMADO 



GRAFICQS NO COMPUTADOR 



PAGINAS GRAFICAS 



MQVIMENTAC AQ 



DE CU80 



CRIANDO SUA 



PR6PRIA ANIMAC AO 



QUE SAO PAGINAS GRAfICAS 



Todos OS microcomputadores pos- 
suem uma area da memdria reservada 
para a tela de video. Ela pode ser de dois 
tipos: a memdria mapeada, na qual a ca- 
da ponto da tela corresponde um local 



na mem6ria; ou o arquivo de cddigos, 
organizado como uma lista. 

No conceito das pdginas grificas, em 
vez de se construir a figura diretamente 
na memdria reservada para a tela, usa- 
mos uma outra area da mem6rta RAM, 
definida especialmente para esse fim. 
Assim que se conclui a figura, ela € 




transferida para a parte da RAM nor- 

maJmeme associada a tela, A area utili* 
zada para construir o desenho ^ chama- 
da de pdgina grdfica. 

Mas, qual a vantagem de empregd- 
la? Seguramente nao haver^ nenhuma 
economia de tempo, se tivermos que de* 
senhar a figura primeiro em uma irea 
separada da memdria. Ao contrEirio, 
quando se transferem as informagoes 
para a memdria de tela, perde-se um cer- 
to tempo. A vantagem reside no fato de 
que podemos alterar h vontade a pigi- 
na "oculta", sem provocar simultanea- 
mente alteragoes na tela. 

£ 6bvio que a t^cnica de pdginas grd- 
ficas nao tem muito valor quando se tra- 
ta de desenhar apenas uma figura. Su- 
ponhamos, porem, que voce queira es- 
crever um programa em que hi um tex- 
to seguido de um desenho: serla bem 
mais conveniente ir construindo a figu- 
ra em algum lugar da memdria, enquan- 
to o usudrio estivesse ocupado com a lei- 
tura do video. Com a tela grdfica, mui- 
to tempo seria economizado, uma vez 
que ela jd estaria pronta e disponivel em 
uma parte da memdria. 

Mas a grande vantagem das piginas 
graficas se evidencia quando se preten- 
de mostrar uma sucessao muito raplda 
de figuras. Os comandos em BASIC em 
geral escrevem apenas nas dreas reser- 
vadas para a tela. Isso significa que ire- 
mos construir a figura nesta area, e, de- 
pois, transportd-la para outra parte da 
RAM. Esse processo sera mais lento na 
etapa de montagem, mas muito mais rd- 
pido na exibigao da imagem, pois o mi- 
croprocessador nao precisari executar 
uma serie de comandos e funi;6es em 
BASIC. E!e apenas transferird as infor- 
ma^oes daquela parte da memdria para 
a tela. E, se voce montar varias figuras 
em diferentes dreas da memdria, elas 
poderao ser chamadas rapidamente 
para a tela, produzindo ura efeito de 
anima<;ao. 



ALGORITMO OE UM CUBO 



Tomemos como exemplo a monta- 
gem de uma seqiiencia animada que re- 
presente a rota^ao de um cubo. Decidiu- 
se que quatro quadros serao suficienk 



para simular uma rota^ao e que o cubo 
dari cinco voltas. 

O programa podcria ser estruturado 
da seguinte maneira; 

para c - 1 ati 5 fa^a 

comcfo 

limpar a tela 

construir a figura niimero 1 

timpar a tela 

construir a figura numero 2 

limpar a tela 

construir a figura niimero 3 

limpar a tela 

construir a figura numero 4 

fim 

A id^ia parece simples demais: limpa- 
se a tela, exibe-se cada uma das figuras 
em seqiiSncia e o processo € repetido at^ 
que se completem as cinco rotagdes. 
Mas esse m^odo apre&enta uma desvan- 
tagem: os cilculos para se descnhar ca- 
da figura s9o refeitos a cada uma das 
cinco repetigSes. Como os cdlculos to- 
mam a maior parte do tempo no pro- 
cesso, ocorrer^ um "pulo" entre cada 
figura exibida, o que resultard em um 
fraco efeito de animaqSq. 

Observe agora este algoritmo, que 



ilustra o procedimento geraJ usado na 
t^cnica de pSginas grSfrcas: 

limpar a tela 

construir a figura numero 1 

guardar a tela na pigina de mem6ria 1 

limpar a tela 

construir a figura numero 2 

guardar a tela na pAgina de mem6ria 2 

limpar a tela 

construir a figura numero 3 

guardar a tela na pdgina de memdria 3 

limpar a tela 

construir a figura numero 4 

guardar a tela na pAgina de memdria 4 

para c = 1 ate 5 fai;a 

copie OS dados da pigina 1 para a tela 

copte OS dados da pigina 2 para a tela 

copie OS dados da pdgina 3 para a tela 

copie OS dados da pSgina 4 para a tela 

fim 

O programa 6 mais longo e exige um 
demorado processo de construpao das 
quatro figuras, antes de comegar a ani- 
magao. Mas, uma vez armazenadas nas 
pdginas de mem6ria, as figuras podem 
ser mostradas em rdpida seqiiencia. 

Embora a construt^ao dos desenhos 
seja executada em BASIC, podemos uti- 



lizar uma rotina em c6digo de m^quina 
para efetuar a transferencia de uma fi- 
gura da tela para a pdgitia grifica e vice- 
versa. Ela realizard essas trans ferSncias 
em um piscar de olhos — o que € a es- 
s^ncia da animagao. 



FACA SUA PRdPRIA ANIMACAO 



Os pr6ximos programas s§o aplica- 
gSes bem simples da tecnica das paginas 
grificas. Os que utilizam cidigo de mi- 
quina devem ser gravados antes da exe- 
cufao, para evitar que se percam, caso 
ocorra algum erro de digitatpSo. VocS 
pode usar suas prdprias figuras nesscs 
programas, colocando os comandos de 
desenho nas linhas adequadas, 

Em um pr6ximo artigo, examinare- 
mos em detalhe as t^cnicas aqui empre- 
gadas e voce veri como aproveitar ao 
m^imo a capacidade de seu micro. 



Este programa — adequado s6 ao 
Spectrum de 48 K — produzira a anima- 
cao de um acrobata pulando sobre um 
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O Acrobid ni tela do Spectrum. 

trampolim. Embora a malor parte do 
programa seja em BASIC, M um trecho 
em liivguageni de mdquina que daiA a ve- 
locidade necess&ria is flguras na tela. 

10 BORDER 0: PAPER 0: INK 7 : 

CLS 

20 CLEAR 53230 

30 OOSUB 220 

40 LET BrCB-64: LET daHt-20e 

50 CLS 

60 CIRCLE 128,168,7: PLOT 128 

,161: DRAW 0,-15: DHAW -10, 

-10: PLOT 128. 3 46: DBAW 10, 

-10: PLOT 118.161: DRAW 11, -!i 

: DRAU 10,5 

70 PLOT 108,106: DBAW 40,0: 

PLOT 113.106: DRAM -8,-8: 

PLOT 145,106; DRAW 8,-8 

80 GOSUB 270: LET d«8t-d«et+ 

16 
90 PRINT AT 21,2;"<jualquer te 
cla para couiecar": PAUSE 
100 CLS : CIRCLE 128.151,7: 
PLOT 128.134: DRAW 0,-15: DRAW 
-5,-16: PLOT 12B.120: DRAW 5, 
-17: PLOT 118,125; DRAW 10,5: 
DRAW 11,-5 

110 PLOT 109.106: DRAW 15,-4: 
DRAW 10,0: DRAW 15,4: PLOT 113 
,105: DRAW -8,-S: PLOT 144,105 
: DRAW 8,-8 

120 PRINT AT 6,4l"! IBOINGU" 
130 GOSUB 270 

HO PRINT AT 21,2i"qual<iijer te 
cla para comecar": PAUSE 
150 LET arce-208: LET deBt-64 
160 PRTNT AT 17 , 3 j "qualquer te 
cla para pular": PAUSE 
170 FOR n-0 TO 1 
180 CLS 
190 GOSUB 270: LET arce-srce+ 

16 
200 NEXT n 
210 GOTO 150 

220 DATA 1,0.16,17.0.0,33,0,0, 
237.176,201 

230 FOR 1=53231 TO 53231+11 
240 READ byte: POKE l.byte 



TRS-Color: o asterUco que se movimenta. 



250 NEXT i 

260 RETURN 

270 POKE 53236. dent 

280 POKE 53239, arce 

290 RAND UBB 5 3231 

300 RETURN 

A linha 10 seleciona as cores da tela, 
da borda e do desenho: negro, negro e 
branco, respectivamente. A 20 reserva 
um espa^o na mem6ria e a 30 desvia o 
programa para a sub-rotina entrc as !i- 
nhas 220 e 260, que ivA montar a rotina 
em linguagem de m^quina, nessa ^rea. 
Essa sub-rotina em BASIC \& os c6di- 
gos ap6s comando DATA (litiha 220) 
e OS coloca na drea reservada na mem6- 
ria, atraves do comando POKE. 

A linha 40 define duas variiveis; srce 
e desL A varidve) srce corresponde ao 
byte alto do enderego de onde os c6di- 
gos devem ser retirados e dest, ao byte 
alto do endereco onde eles vto ser guar- 
dados. Informa-se, assim, ao computa- 
dor onde ler a imagem da tela e onde 
coloc^-ia na memdria. Em seguida, as 
linhas 60 e 70 desenham a primeira das 
duas figuras — o acrobata no ar. A li- 
nha SO desvia o programa para a linha 
270, onde hA uma rotina que coloca os 
valores de dest e srce no programa em 
cbdigo de mdquina. Depois, chama es- 
sa rotina para copiar a parte da tela em 
que cstd o acrobata. 

O pr{Sximo passo consiste na crk^ao 
da imagem para a segunda p^gina de 
memdria (linhas 100 a 120). Essa ima- 
gem € armazenada pela linha 1 30, que 
desvia o programa para a linha 270. A 
linha 1 50 troca os valores de srw e desi, 
o que faz com que OS cbdigos sejam 
transferidos da RAM para a tela. As li- 
nhas ISO a 210 formam um laijo que se 
encarrega de alternar as duas figuras na 
tela. Para interromper o programa, bas- 
ta acionar < BREAK >. 



Para montar sua prdpria anima^to 
(de dois quadros), vocfi prccisar^ modi- 
ficar OS comandos grdficos nas linhas 60 
e 70 e 100 c 1 10. Futuramente, vocfi vc- 
rd que 6 possfvel usar at£ oito pdginas 
grdficas em seqiiSncia. 



O programa do TRS-Color i ligeira- 
mente diferente dos destinados aos ou- 
tros computadores. Ele usa tr9s pdginas 
grificas — em vez de duas — das oito 
possfvels acessadas pelo comando 
PCOPY. Esse comando t utilizado da 
seguinte maneira: PCOPY ntimero da 
primeira pdgina TO ntimero da ultima 
pdgina — PCOPY 1 TO 8, por exem- 
plo. Na verdade, a aitern&ncia de p^gi- 
nas i tao rdpida, que se torna necessi- 
rio introduzir uma pause entrc elas. 

O programa mostra uma grande es- 
trela girando continuamentc. 

10 PCLBAR 8:PM0DE 2,1 

20 SCREEN 1.1: CLS 

30 C-ATNtl)/45 

50 FOR N-0 TO 2 

60 PCLS 

70 FOR K-0 TO 360 STEP 45 

80 LINE (127,95) -(127+59«3IN£C*( 

K+N*15) ) , 95-59«C0S (C* (K+N*15) ) ) 

,P5ET 

90 NEXT 

100 PCOPY 1 TO 3+N*2: PCOPY 2 TO 

4+N*2 
110 NEXT 

140 FOR N-3 TO 7 STEP 2 
150 PCOPY H TO 1: PCOPY N+1 TO 2 
160 FOR G-1 TO 30: NEXT Q.N 
170 GOTO 140 

A linha 10 abre espa^o para as oito 
p^ginas grdficas e seleciona PMODE2 
na pAgina I , para ficar em branco e prc- 
to com midia resolu^o. Neste modo. 



uma tefa ocupa duas das pdginas grifi- 
cas internas. Na linha 20 o modo de al- 
ia resolufao gr^fica e acionado. 

As imagens qoe irao ocupar as tres 
paginas sao montadas da linha 30 atd a 
linha 110, enquanto a linha 100 copia 
cada uma detas nas paginas internas. 
Uma tela ocupa duas paginas internas 
c as duas primeiras paginas sao usadas 
para desenhar os graficos. 

As linhas 140 a 160 copiam as pagi- 
nas armazenadas na tela, em seqiiencia. 
Ha uma pausa na linha 160 para evitar 
que as imagens se alternem^ muilo rapi- 
damente e se sobreponham. 
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No Apple, contamos com duas pagi- 
nas grdficas. O comando HGR ativa a 
alta resolugao, limpa e mostra a pdgina 
I da mem6ria. O comando HGR2 ativa 
a alta resolucao, limpa e mostra a pagi- 
na 2. Colocaremos um desenho em ca- 
da pagina, fazendo com que se alter- 
aem. Digite e execute o programa. Vo- 
ce veri um beija-flor pairando no ar. 



5 
10 



POKE 



16302,0 



67:N 



83 :N 



1000 



20 XI = 112:Y1 

30 GOSUB 100 

40 FOR T = 1 TO 1000 

50 HGR2 

60 XI ' 115:Y1 * 

70 GOSUB 100 

FOR T - 1 TO 
GOTO 300 

FOR I - 1 TO N 

READ X2 

READ ¥2 

HPLOT XI, Yl TO X2 

LET XI 

NEXT I 

RETURN 

DATA 



X2: LET 



80 

90 

100 

110 

120 

130 

140 

150 

160 

200 

192 

,186 

210 DATA 115.186,118 

18,12,191.46,139,51,10 

0,86 

220 DATA 96,64,54,48 

5,83,160.80,240,102,18 

230 DATA 144,113,160 

179,169,144,185,11 
DATA 6ft. 118. 12. 1 

109,67.90.83,86 



= 16 

NEXT T 
= 19 

NEXT T 



YZ 
Yl ' Y2 



147. 
240 
.51. 
300 



86.3,79,67.90,86, 

3.176,64.141,99,196,166.170 



,138,86,1 
9 , 57 , 90 , 9 

,83,86,11 

5,115 

,144,192. 

5.148 

91,48.139 



16304,0: POKE 



POKE 
6300,0 

310 FOR I = 1 TO 70: NEXT I 
320 POKE - 16304,0: POKE - 1 
6299,0 

330 FOR T = 1 TO 70: NEXT T 
340 GOTO 300 

A linha 5 ativa o comando HGR. To- 
dos OS comandos graficos escreverao na 
I primeira pagina. A linha 10 "fecha" a 



janela de quatro linhas na base da tela. 
A linha 20 define os pontes iniciais do 
primeiro desenho (XI e Yl) e o numero 
de coordenadas a serem lidas (N). A li- 
nha 30 desvia o programa para a sub- 
rotina de desenho que vai da linha 100 
a linha 160. Para construir esse primei- 
ro desenho, serao lidas as tinhas 200 e 
210. 

A linha 50 ativa o HGR2, abrindo es- 
pa?o para se oscrever na segunda pagi- 
na. A linha 60 define os valores iniciais 
da segunda figura e a 70 chama a sub- 
rotina de desenho, que agora ira ler as 
linhas 220, 230 e 240. 

A rotina entre as linhas 300 e 340 al- 
tema as duas figuras na tela. A linha 300 
mostra a pagina 1 e a 320, a pagina 2. 
As linhas 3t0 e 330 introduzem pausas 
para diminuir a velocidade de alternan- 
cia das imagens. 
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O programa do TK-2000 i semelhan- 
te ao do Apple. Devem ser feitas as se- 
guintes modificacoes: 

5 MA: HOME :MPl HOME 
10 MA: ttGR2 
50 MP: HGRZ 
300 MA 
320 MP 

A linha 5 limpa a primeira (MA) e a 
segunda (MP) paginas. A linha 10 ha- 
bitita o usuario a escrever na primeira 
pagina, e a Unha 50, na segunda. As li- 
nhas 300 e 320 mostram a primeira e a 
segunda paginas, respectivamente. 

Para entender melhor o programa, 
veja as explicagoes para o Apple. 



O MSX, como voce j^ deve saber, 
possui uma mem6ria exclusiva para a te- 
la, a VRAM, que e dividida em oito par- 
tes de 2048 bytes. comando BASE en- 
dere(;a cada arquivo de cddigos em um 
deles, nao necessariamente em seqiien- 
cia. Como o modo de baixa resolugao 
grdfica nao exige muitas informa9oes, 
grande parte da VRAM fica desocupa- 
da. Nesses espacjos e possivel criar ate 
seis pciginas grdficas. Para demonstrar 
isso, o proximo programa ird simular a 
rota^ao de um cubo. 

5 BASE CIS) -BASE (19) 

10 BASEC17>=0:3CHEEN 3 

20 X1=127:Y1=40:N=4 

30 GOSUB 200 

40 BASE (17) -4096: SCREEN 3 

50 X1-103:Y1=151:K=10 



60 COSUB 200 

70 BASE (17) =6144: SCREEN 3 

80 Xl-95-Yl=151:N=10 

90 GOSUB 200 

100 BASE (17] -8192: SCREEN 3 

110 X1=85:Y1=96;N=6 

120 GOSUB 200 

130 BASE (17) =10240 iSCREEN 3 

140 Xl=155:yi=15] :N-10 

150 GOSUB 200 

160 BASE(17)-12288:SCHEEN 3 

170 Xl=151;Yi=151:N=10 

180 GOSUB 200 

190 GOTO 400 

200 FOB 1=1 TO a 

2] Q READ X2 

220 BEAD Y2 

230 LINE(X1,Y1)-{X2,Y2) 

240 LET X1=X2:LET Y1-Y2 

250 NEXT I 

260 RETURN 

300 DATA 177,96,127.151,74,96,1 

2 7,40 

310 DATA 133,96,176,96,151,151, 

103. 151, 78. 96. 103, 40. 151. 40, 181 

,96,128,96.103,4 

320 DATA 110.96,170,96,155.151, 

95,151,80,96.95.40,15 5,40,170.9 

6,110.96,95,40 

330 DATA 85.41,169.41.169,151,8 

5,151.85,96,169,96 

340 DATA 140,96,80,96,95,151,15 

5,151,170.96,155,40,95,40.60.96 

.140,96,155,40 

350 DATA 121,96.73,96.10 3.151,1 

51, 151,181.96.151,40,103.40,73, 

96,121.96,151.40 

400 BASEC17>=0 

410 FOR 1=1 TO 70: NEXT I 

420 BASE {17> =4096 

430 FOB 1=1 TO 70: NEXT I 

440 BASEC17)=6144 

450 FOR 1=1 TO 70: NEXT I 

460 BASE C17)=8192 

470 FOR 1=1 TO 70?NEXT I 

480 BASEC17)-10Z40 

490 FOR I-l TO 70: NEXT I 

500 BASE (17) =12288 

510 FOR 1=1 TO 70;NEXT I 

5 20 GOTO 400 

Primeiro, a linha 5 coloca o endere- 
qo de um arquivo que nao iremos usar 
no ultimo segmento da VRAM, junto 
com um outro, a fim de criar espa?o. A 
linha 10 faz o computador colocar a ta- 
bela de padroes (a figura propriamenlc 
dila) a partir do endere^o 0, A 20 defi- 
ne OS pontes iniciais do desenho (XI e 
Yl) e o niimero de coordenadas que se- 
rao lidas (N). A 30 chama a rotina de 
desenho, que comepa na linha 200 e ter- 
mina na 260. A 300 contdm as informa- 
fSes para o primeiro desenho. 

Feitos OS desenhos, o programa e des- 
viado para a rotina da linha 400, que aJ- 
terna as figuras na tela, dizendo ao com- 
putador, por meio do comando BASE, 
onde busca-las. Essa rotina inclui ain- 
da uma pausa entre as figuras, para que 
elas nSo se sobreponham. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 
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m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMAQAO BASIC 

Veja como os programas sao armazenados. AI6m de sattsfazer 
sua curiosidade, vocd ter^ novos recursos para detectar erros. 

aplicaqOes 

Se voc§ Vive Ss voltas com numeros, prepare uma ptanliha 
de cdlculo e peca socorro ao computador. 

c6digo de maquina 

Avalanche: mais problemas se abatem sobre Willie. Agora, 
pedras gigantescas rolam morro abaixo, ameapando soterr^-lo. 
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